example of select case statement in vb.net